home *** CD-ROM | disk | FTP | other *** search
/ .net 1997 May / net 32 / NET32PC.iso / mac / NET32PPC / NET32PPC.dxr / 00408_underlineLinks.ls < prev    next >
Encoding:
Text File  |  1997-04-11  |  679 b   |  23 lines
  1. on underlineLinks dtext, alistcast
  2.   put "changing the style of linked text"
  3.   put "sorry this is so *slow* ..."
  4.   set alist to value(string(the text of cast alistcast))
  5.   repeat while not (alist = "[:]")
  6.     set this to getPropAt(alist, 1)
  7.     set that to getPropAt(alist, 2)
  8.     repeat with i = this to that
  9.       changecharacterstyle(dtext, i)
  10.     end repeat
  11.     deleteAt(alist, 1)
  12.     deleteAt(alist, 1)
  13.   end repeat
  14.   put "done changing style of linked text"
  15. end
  16.  
  17. on changecharacterstyle caste, ch
  18.   set linkStyle to "underline"
  19.   set linkColor to 168
  20.   set the foreColor of char ch of field caste to linkColor
  21.   set the textStyle of char ch of field caste to linkStyle
  22. end
  23.